home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 4,101 to 4,200 / aol-file-protocol-4400-4101-to-4200.zip / AOLDLs / Shareware Demos / TOOTHPIK_ V3.0 Dental Office Mgr / TOTHDEMO.exe / PATPROC.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1993-01-16  |  4KB  |  21 lines
  1. PATPROC
  2. PROCNAME
  3. P]L    P]V    P]
  4. ^           ? CHR(7)                 && RING BELL & print error msg    
  5.              ACTIVATE WINDOW Search_W
  6.              @ 1,2 SAY "Patient ID#: " + QINP + " Was Not Found";
  7.              GET QINP  MESSAGE " Press Enter" COLOR W+/B, B/B 
  8.              READ  && dummy read              
  9.              DEACTIVATE WINDOW Search_W
  10.              RETURN
  11.           ELSE
  12.              COUNT WHILE CUSTNO = QINP TO Howmany
  13.              GOTO 1
  14.              SCAN FOR CUSTNO = QINP
  15.                 DO Klist_form
  16.        
  17. PROCNAME
  18. PROCNAME
  19. CRW4    
  20. Match capit`iz
  21.